home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Last Express Preview / The Last Express Demo / The Last Express Demo.11 MAC / 00143.ls < prev    next >
Encoding:
Text File  |  1996-10-23  |  1.3 KB  |  55 lines
  1. global gCurMov, gTimer, gactiveZone
  2.  
  3. on startMovie
  4.   checkForQT()
  5.   set the colorDepth to 16
  6.   if the stageTop = 0 then
  7.     set gactiveZone to 20
  8.   else
  9.     set gactiveZone to -(the stageTop - 20)
  10.   end if
  11.   set gTimer to the ticks
  12.   set the fileName of member "sneak preview.mov" to the pathName & "movie:" & "sneak preview.mov"
  13.   set the fileName of member "making of.mov" to the pathName & "movie:" & "making of.MOV"
  14.   set the fileName of member "BrodLogo.MOV" to the pathName & "movie:" & "BrodLogo.MOV"
  15. end
  16.  
  17. on sp
  18.   set gCurMov to "sneak preview"
  19.   go("mov setup")
  20. end
  21.  
  22. on mo
  23.   set gCurMov to "making of"
  24.   go("mov setup")
  25. end
  26.  
  27. on checkForQT
  28.   if not (the quickTimePresent) and (the machineType <> 256) then
  29.     alert("It appears QuickTime is not present on your computer. Please drag the QuickTime extension from the System Extensions folder on this CD-ROM and restart. ")
  30.     quit()
  31.   end if
  32. end
  33.  
  34. on idle
  35.   if the frame >= 17 then
  36.     case 1 of
  37.       (gactiveZone > 1):
  38.         if the mouseV <= gactiveZone then
  39.           installMenu(member "menu")
  40.         else
  41.           installMenu(0)
  42.         end if
  43.       otherwise:
  44.         if the mouseV <= gactiveZone then
  45.           installMenu(member "menu")
  46.         else
  47.           installMenu(0)
  48.         end if
  49.     end case
  50.   end if
  51. end
  52.  
  53. on menuControl
  54. end
  55.